unit ufrmCidade;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, uDMLocal, DB, Mask, DBCtrls;

type
  TfrmCidade = class(TForm)
    btnGravar: TButton;
    btnNovo: TButton;
    btnCancelar: TButton;
    btnExcluir: TButton;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    procedure btnGravarClick(Sender: TObject);
    procedure btnNovoClick(Sender: TObject);
    procedure btnCancelarClick(Sender: TObject);
    procedure btnExcluirClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCidade: TfrmCidade;

implementation

{$R *.dfm}

procedure TfrmCidade.btnCancelarClick(Sender: TObject);
begin
   if DMLocal.cdsCidade.State <> dsBrowse then
      DMLocal.cdsCidade.cancel;
end;

procedure TfrmCidade.btnExcluirClick(Sender: TObject);
begin
   if DMLocal.cdsCidade.State = dsBrowse then
      DMLocal.cdsCidade.delete;
end;

procedure TfrmCidade.btnGravarClick(Sender: TObject);
begin
   if DMLocal.cdsCidade.State <> dsBrowse then
   begin
      DMLocal.cdsCidade.Post;
      DMLocal.cdsCidade.ApplyUpdates(0);
   end;

end;

procedure TfrmCidade.btnNovoClick(Sender: TObject);
begin
   if DMLocal.cdsCidade.State = dsBrowse then
      DMLocal.cdsCidade.Insert;
end;

end.
